Dim objXL
Dim sCurPath
sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
'msgbox sCurPath + "\Test1.xls"
Set objXL = CreateObject("Excel.Application")
With objXL
    .Workbooks.Open (sCurPath + "\Test2.xls")
    .Application.Run "T2M3"
    .Application.Quit
End With
Set objXL = Nothing 